home *** CD-ROM | disk | FTP | other *** search
/ PC Home 48 / Fun Clicp Art 5000.iso / r / mbm / 00740_DE- bt mon.ls < prev    next >
Encoding:
Text File  |  1996-05-11  |  538 b   |  27 lines
  1. on MouseClick
  2.   global gLabel, gSujet0, gSprSel, gLocLabel, gEtudAct
  3.   curseur(6)
  4.   set gLabel to "DE:mon"
  5.   set gSujet0 to 0
  6.   set gSprSel to 0
  7.   set gLocLabel to "DE:OU" && gEtudAct
  8. end
  9.  
  10. on mouseDown
  11.   global gBoutons, gNumSpr, g1erSprLoc
  12.   set gNumSpr to g1erSprLoc + 7
  13.   gBoutons(appuie, gNumSpr)
  14. end
  15.  
  16. on mouseUp
  17.   global gBoutons, gNumSpr, g1erSprLoc, gLabel, gSujet0, gSprSel
  18.   curseur(1)
  19.   set monNumSpr to g1erSprLoc + 7
  20.   if gNumSpr = monNumSpr then
  21.     MouseClick()
  22.     gBoutons(relache, gNumSpr)
  23.   else
  24.     pass()
  25.   end if
  26. end
  27.